Dit voorbeeld maakt gebruik van de functie UCase om van de tekenreeks een versie met hoofdletters als resultaat te geven.
Dim LowerCase, UpperCase
LowerCase = "Hallo allemaal 1234" ' Om te zetten tekenreeks.
UpperCase = UCase(LowerCase) ' Geeft "HALLO ALLEMAAL 1234".